open(BUFF,"input_withcorrecthead.ind");
open(AFFY,">AFFY_10000snps.txt");
open(ILL,">ILL_10000snps.txt");
$n =0;
$n1 =0;
while(<BUFF>)
{
	chomp($_);
	@a = split(/\t/,$_);
	#print $a[2]."\t".$a[0]."\n";	
	if($n < 10001)
	{
		if($a[2] eq 'AFFY')
		{
			print AFFY $a[0]."\n";
			$n++;
		}
	}
	if($n1 < 10001)
        {
                if($a[2] eq 'ILL550V3')
                {
                        print ILL $a[0]."\n";
			$n1++;
                }
        }
}
